From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 22 Apr 2004 22:56:08 +0000 (+0000)
Subject: (next-error): Change arg name.  Add support for the documented C-u C-x ` usage.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22989
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=28703764aa576cd6aba52d36d6e2c15790305f63;p=emacs.git

(next-error): Change arg name.  Add support for the documented C-u C-x ` usage.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 494a9884100..782dd9c3a2e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,7 +1,7 @@
 ;;; simple.el --- basic editing commands for Emacs
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99,
-;;               2000, 2001, 2002, 2003
+;;               2000, 01, 02, 03, 04
 ;;        Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -74,11 +74,14 @@ similar mode is started, or when it is used with \\[next-error]
 or \\[compile-goto-error].")
 
 (defvar next-error-function nil
-  "The next-error vehicle for other modes.
-This variable can be bound to a function by a mode.  It is
-buffer-local by default.  Together with
-`next-error-last-buffer', this variable lets modes hook into
-\\[next-error].")
+  "Function to use to find the next error in the current buffer.
+The function is called with 2 parameters:
+ARG is an integer specifying by how many errors to move.
+RESET is a boolean which, if non-nil, says to go back to the beginning
+of the errors before moving.
+Major modes providing compile-like functionality should set this variable
+to indicate to `next-error' that this is a candidate buffer and how
+to navigate in it.")
 
 (make-variable-buffer-local 'next-error-function)
 
@@ -119,13 +122,13 @@ buffer-local by default.  Together with
 		     (current-buffer)))
 	      (error "No next-error capable buffer found!")))))))
 
-(defun next-error (argp &optional reset)
+(defun next-error (arg &optional reset)
   "Visit next next-error message and corresponding source code.
 
 If all the error messages parsed so far have been processed already,
 the message buffer is checked for new ones.
 
-A prefix ARGP specifies how many error messages to move;
+A prefix ARG specifies how many error messages to move;
 negative means move back to previous error messages.
 Just \\[universal-argument] as a prefix means reparse the error message buffer
 and start at the first error.
@@ -148,10 +151,11 @@ uses Compilation mode or Compilation Minor mode.
 See variables `compilation-parse-errors-function' and
 \`compilation-error-regexp-alist' for customization ideas."
   (interactive "P")
+  (if (consp arg) (setq reset t arg nil))
   (when (setq next-error-last-buffer (next-error-find-buffer))
     ;; we know here that next-error-function is a valid symbol we can funcall
     (with-current-buffer next-error-last-buffer
-      (funcall next-error-function argp reset))))
+      (funcall next-error-function (prefix-numeric-value arg) reset))))
 
 (defalias 'goto-next-locus 'next-error)
 (defalias 'next-match 'next-error)